CD BIT 75/CD BIT 75.iso/Software/LogOut/disk1/_SETUP.1/GCondom7.exe/0/RCDATA/TFRMFTP/TFRMFTP.txt

Text File | 2004-10-21 | 16KB | 713 lines

object frmFTP: TfrmFTP
  Left = 218
  Top = 114
  BorderStyle = bsNone
  Caption = 'frmFTP'
  ClientHeight = 479
  ClientWidth = 747
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 747
    Height = 479
    Align = alClient
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object Label1: TLabel
    Left = 8
    Top = 4
    Width = 317
    Height = 29
    Caption = 'Exportar para site web (ftp)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 10
    Top = 70
    Width = 25
    Height = 13
    Caption = 'Host:'
    Transparent = True
  end
  object Label3: TLabel
    Left = 10
    Top = 106
    Width = 22
    Height = 13
    Caption = 'Port:'
    Transparent = True
  end
  object Label4: TLabel
    Left = 10
    Top = 142
    Width = 25
    Height = 13
    Caption = 'User:'
    Transparent = True
  end
  object Label5: TLabel
    Left = 10
    Top = 178
    Width = 49
    Height = 13
    Caption = 'Password:'
    Transparent = True
  end
  object Label16: TLabel
    Left = 10
    Top = 232
    Width = 63
    Height = 13
    Caption = 'Proxy Server:'
    Transparent = True
  end
  object Label17: TLabel
    Left = 10
    Top = 264
    Width = 51
    Height = 13
    Caption = 'Proxy Port:'
    Transparent = True
  end
  object Label6: TLabel
    Left = 25
    Top = 216
    Width = 60
    Height = 13
    Caption = 'Utilizar Proxy'
    Transparent = True
  end
  object Label7: TLabel
    Left = 25
    Top = 303
    Width = 67
    Height = 13
    Caption = 'Modo Passivo'
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 712
    Top = 5
    Width = 81
    Height = 22
    Caption = 'Ligar'
    Visible = False
    OnClick = SpeedButton1Click
  end
  object Shape1: TShape
    Left = 203
    Top = 78
    Width = 1
    Height = 392
  end
  object Label8: TLabel
    Left = 40
    Top = 30
    Width = 673
    Height = 41
    Alignment = taCenter
    AutoSize = False
    Caption =
      'Depois de introduzidos os dados para liga��o por ftp ao site web' +
      ' para onde se pretende descarregar as listagens devem selecciona' +
      'r-se os condom�nios e as listagens a exportar. As informa��es s�' +
      'o memorizadas sendo apenas necess�rio configurar na primeira uti' +
      'liza��o ou reconfigurar se as condi��es de acesso ftp mudaram.'
    Transparent = True
    WordWrap = True
  end
  object Label10: TLabel
    Left = 451
    Top = 88
    Width = 19
    Height = 13
    Caption = 'Ano'
    Transparent = True
  end
  object RxLabel2: TRxLabel
    Left = 616
    Top = 88
    Width = 10
    Height = 17
    Alignment = taRightJustify
    Caption = '0'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton3: TSpeedButton
    Left = 636
    Top = 86
    Width = 100
    Height = 20
    Caption = 'Seleccionar Todos'
    Flat = True
    OnClick = SpeedButton3Click
  end
  object Label61: TLabel
    Left = 225
    Top = 88
    Width = 70
    Height = 13
    Caption = 'Ordenados por'
    Transparent = True
  end
  object Label9: TLabel
    Left = 360
    Top = 410
    Width = 101
    Height = 13
    Caption = 'Receitas e Despesas'
    Transparent = True
  end
  object Label11: TLabel
    Left = 360
    Top = 390
    Width = 93
    Height = 13
    Caption = 'Saldos Cond�minos'
    Transparent = True
  end
  object Label12: TLabel
    Left = 240
    Top = 390
    Width = 52
    Height = 13
    Caption = 'Or�amento'
    Transparent = True
  end
  object Label13: TLabel
    Left = 240
    Top = 410
    Width = 89
    Height = 13
    Caption = 'Quotas Calculadas'
    Transparent = True
  end
  object Label14: TLabel
    Left = 240
    Top = 430
    Width = 67
    Height = 13
    Caption = 'Quotas Pagas'
    Transparent = True
  end
  object Label15: TLabel
    Left = 360
    Top = 430
    Width = 81
    Height = 13
    Caption = 'Contas Correntes'
    Transparent = True
  end
  object Panel1: TPanel
    Left = 216
    Top = 113
    Width = 518
    Height = 263
    BevelOuter = bvNone
    Color = clWindow
    TabOrder = 23
    object Label18: TLabel
      Left = 20
      Top = 9
      Width = 470
      Height = 42
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Seleccione a pasta para onde deseja exportar as listagens.'#13#10'Ao f' +
        'azer duplo-clique numa pasta ela � aberta mostrando as pastas qu' +
        'e que se encontram dentro. Quando encontrar a pasta para onde de' +
        'seja exportar basta fazer ��Exportar para aqui��.'
      WordWrap = True
    end
    object ListBox1: TListBox
      Left = 10
      Top = 56
      Width = 490
      Height = 153
      ItemHeight = 13
      TabOrder = 1
      OnDblClick = ListBox1DblClick
    end
    object Button1: TButton
      Left = 200
      Top = 224
      Width = 129
      Height = 25
      Caption = 'Exportar para aqui'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 216
    Top = 113
    Width = 518
    Height = 263
    BevelOuter = bvNone
    Color = clWindow
    TabOrder = 24
    object ProgressBar1: TProgressBar
      Left = 32
      Top = 88
      Width = 457
      Height = 65
      Min = 0
      Max = 100
      TabOrder = 0
    end
  end
  object RxDBGrid1: TRxDBGrid
    Left = 215
    Top = 112
    Width = 520
    Height = 265
    Ctl3D = False
    DataSource = DataSource1
    FixedColor = 14143935
    Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentCtl3D = False
    TabOrder = 10
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    MultiSelect = True
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Alignment = taCenter
        Title.Caption = 'C�d.'
        Width = 35
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Condom�nio'
        Title.Alignment = taCenter
        Width = 310
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Contr.'
        Title.Alignment = taCenter
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Ano'
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end>
  end
  object CheckBox2: TCheckBox
    Left = 10
    Top = 301
    Width = 16
    Height = 17
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 10
    Top = 86
    Width = 180
    Height = 19
    Ctl3D = False
    DataField = 'Host'
    DataSource = Dados.dsAdministracao
    ParentCtl3D = False
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 10
    Top = 122
    Width = 50
    Height = 19
    Ctl3D = False
    DataField = 'Port'
    DataSource = Dados.dsAdministracao
    ParentCtl3D = False
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 10
    Top = 158
    Width = 121
    Height = 19
    Ctl3D = False
    DataField = 'User'
    DataSource = Dados.dsAdministracao
    ParentCtl3D = False
    TabOrder = 3
  end
  object DBEdit4: TDBEdit
    Left = 10
    Top = 194
    Width = 180
    Height = 19
    Ctl3D = False
    DataField = 'Pass'
    DataSource = Dados.dsAdministracao
    ParentCtl3D = False
    PasswordChar = '*'
    TabOrder = 4
  end
  object DBCheckBox1: TDBCheckBox
    Left = 10
    Top = 214
    Width = 16
    Height = 17
    Caption = 'DBCheckBox1'
    DataField = 'UseProxy'
    DataSource = Dados.dsAdministracao
    TabOrder = 5
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object DBEdit5: TDBEdit
    Left = 10
    Top = 245
    Width = 180
    Height = 19
    Ctl3D = False
    DataField = 'Proxy'
    DataSource = Dados.dsAdministracao
    ParentCtl3D = False
    TabOrder = 6
  end
  object DBEdit6: TDBEdit
    Left = 10
    Top = 277
    Width = 50
    Height = 19
    Ctl3D = False
    DataField = 'ProxyPort'
    DataSource = Dados.dsAdministracao
    ParentCtl3D = False
    TabOrder = 7
  end
  object BitBtn2: TBitBtn
    Left = 640
    Top = 395
    Width = 80
    Height = 25
    Caption = 'Exportar'
    TabOrder = 8
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 640
    Top = 430
    Width = 80
    Height = 25
    Caption = 'Cancelar'
    TabOrder = 9
    OnClick = BitBtn3Click
    Kind = bkCancel
  end
  object Edit2: TEdit
    Left = 481
    Top = 86
    Width = 50
    Height = 21
    Hint = 'Texto a procurar, dependendo da ordena��o'
    TabStop = False
    Color = clInfoBk
    Ctl3D = True
    ParentCtl3D = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 11
    Text = '2002'
    OnChange = Edit2Change
  end
  object UpDown1: TUpDown
    Left = 531
    Top = 86
    Width = 16
    Height = 21
    Associate = Edit2
    Min = 1995
    Max = 2010
    Position = 2002
    TabOrder = 12
    Thousands = False
    Wrap = False
  end
  object CheckBox1: TCheckBox
    Left = 552
    Top = 88
    Width = 49
    Height = 17
    Caption = 'Todos'
    TabOrder = 13
    OnClick = CheckBox1Click
  end
  object ComboBox4: TComboBox
    Left = 305
    Top = 86
    Width = 110
    Height = 21
    Hint = 'Muda a ordena��o da lista'
    Style = csDropDownList
    Color = clInfoBk
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnChange = ComboBox4Change
    Items.Strings = (
      'C�digo'
      'Condom�nio'
      'Contribuinte'
      'Ano')
  end
  object CheckBox3: TCheckBox
    Left = 344
    Top = 410
    Width = 16
    Height = 17
    Caption = 'Livro.db'
    Checked = True
    State = cbChecked
    TabOrder = 19
  end
  object CheckBox4: TCheckBox
    Left = 344
    Top = 390
    Width = 16
    Height = 17
    Caption = 'Condominos.db'
    Checked = True
    State = cbChecked
    TabOrder = 18
  end
  object CheckBox5: TCheckBox
    Left = 224
    Top = 390
    Width = 16
    Height = 17
    Caption = 'Orcamentos.db'
    Checked = True
    State = cbChecked
    TabOrder = 15
  end
  object CheckBox6: TCheckBox
    Left = 224
    Top = 410
    Width = 16
    Height = 17
    Caption = 'Condominos.db'
    Checked = True
    State = cbChecked
    TabOrder = 16
  end
  object CheckBox7: TCheckBox
    Left = 224
    Top = 430
    Width = 16
    Height = 17
    Caption = 'Condominos.db'
    Checked = True
    State = cbChecked
    TabOrder = 17
  end
  object CheckBox8: TCheckBox
    Left = 344
    Top = 430
    Width = 16
    Height = 17
    Caption = 'contas correntes'
    Checked = True
    State = cbChecked
    TabOrder = 20
  end
  object Memo1: TMemo
    Left = 8
    Top = 320
    Width = 185
    Height = 121
    Ctl3D = False
    Lines.Strings = (
      'Inicio')
    ParentCtl3D = False
    TabOrder = 21
  end
  object CheckBox9: TCheckBox
    Left = 6
    Top = 444
    Width = 190
    Height = 17
    Hint =
      'Ao marcar esta op��o, depois de '#13#10'exportada a informa��o o utili' +
      'zador '#13#10'vai ver a lista de todos os condom�nios'#13#10'no site. Na sit' +
      'ua��o inversa, s� ver�'#13#10'uma janela de login.'
    Caption = 'Mostrar lista de condom�nios no site'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 22
  end
  object CheckBox10: TCheckBox
    Left = 6
    Top = 461
    Width = 131
    Height = 17
    Hint =
      'Ao marcar esta op��o, h� a possibilidade '#13#10'de actualizar apenas ' +
      'a informa��o dos '#13#10'condom�nios desejados sem exportar todos '#13#10'de' +
      ' novo. NOTA: S� v�lido para condom�nios'#13#10'anteriorment exportados' +
      '.'
    Caption = 'S� actualizar listagens'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 25
  end
  object NMFTP1: TNMFTP
    Port = 21
    ReportLevel = 0
    OnDisconnect = NMFTP1Disconnect
    OnConnect = NMFTP1Connect
    OnInvalidHost = NMFTP1InvalidHost
    OnHostResolved = NMFTP1HostResolved
    OnStatus = NMFTP1Status
    OnConnectionFailed = NMFTP1ConnectionFailed
    OnPacketRecvd = NMFTP1PacketRecvd
    OnPacketSent = NMFTP1PacketSent
    OnError = NMFTP1Error
    OnTransactionStart = NMFTP1TransactionStart
    OnTransactionStop = NMFTP1TransactionStop
    OnFailure = NMFTP1Failure
    OnSuccess = NMFTP1Success
    OnListItem = NMFTP1ListItem
    OnUnSupportedFunction = NMFTP1UnSupportedFunction
    Vendor = 2411
    ParseList = True
    ProxyPort = 0
    Passive = True
    FirewallType = FTUser
    FWAuthenticate = False
    Left = 280
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 344
    Top = 8
  end
  object Table1: TTable
    Left = 312
    Top = 8
  end
  object FormStorage1: TFormStorage
    UseRegistry = True
    StoredProps.Strings = (
      'CheckBox2.Checked'
      'CheckBox3.Checked'
      'CheckBox4.Checked'
      'CheckBox5.Checked'
      'CheckBox6.Checked'
      'CheckBox7.Checked'
      'CheckBox8.Checked')
    StoredValues = <>
    Left = 376
    Top = 8
  end
  object frHTMExport1: TfrHTMExport
    ShowDialog = False
    ScaleX = 1
    ScaleY = 1
    PageBreaks = False
    Left = 552
    Top = 8
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    Left = 488
    Top = 8
    ReportForm = {18000000}
  end
  object frBDEComponents1: TfrBDEComponents
    Left = 520
    Top = 8
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Table2
    Left = 625
    Top = 9
  end
  object Table2: TTable
    Left = 656
    Top = 8
  end
  object frDBDataSet2: TfrDBDataSet
    DataSet = Table1
    Left = 592
    Top = 8
  end
  object Table3: TTable
    Left = 408
    Top = 8
  end
  object tSecInterna: TTable
    Left = 656
    Top = 40
  end
  object frDBDataSet3: TfrDBDataSet
    DataSet = tSecInterna
    Left = 624
    Top = 40
  end
end